-- card: 7452 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 4755
-- name: index (cont)
----- HyperTalk script -----
on updateIndex
  global deletedCard
  put 36*((the number of me)-(the number of card "index")) into base
  set cursor to watch
  put 1 into x
  repeat until x > 18
    get line x+base of card field "topic" of card "index"
    if it is not "" then
      if x > 1 then
        if it is line x+base-1 of card field "topic" of card "index" then
          get ""
        end if
      end if
      put it into line x of card field "item" of card (the number of me)
      get line x+base of card field "card id" of card "index"
      if it is word 3 of deletedCard then
        delete line x+base of card field "topic" of card "index"
        delete line x+base of card field "card id" of card "index"
        subtract 1 from x
      else
        get idToNumber(it)
        put it into line x of card field "page" of card (the number of me)
      end if
    else
      put "" into line x of card field "item" of card (the number of me)
      put "" into line x of card field "page" of card (the number of me)
    end if
    add 1 to x
  end repeat
  put 1 into x
  repeat until x > 18
    get line x+18+base of card field "topic" of card "index"
    if it is not "" then
      if x > 1 then
        if it is line x+base+17 of card field "topic" of card "index" then
          get ""
        end if
      end if
      put it into line x of card field "item2" of card (the number of me)
      get line x+base+18 of card field "card id" of card "index"
      if it is word 3 of deletedCard then
        delete line x+18+base of card field "topic" of card "index"
        delete line x+18+base of card field "card id" of card "index"
        subtract 1 from x
      else
        get idToNumber(it)
        put it into line x of card field "page2" of card (the number of me)
      end if
    else
      put "" into line x of card field "item2" of card (the number of me)
      put "" into line x of card field "page2" of card (the number of me)
    end if
    add 1 to x
  end repeat
  put (the number of me) + 1 into nextCard
  if nextCard <= the number of cards then
    get the name of card nextCard
    get word 2 of it
    get char 2 to 6 of it
    if it is "index" then
      send updateIndex to card nextCard
    end if
  end if
end updateIndex




-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=57 right=300 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=60 right=300 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: item


-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=14 top=60 right=300 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: page
----- HyperTalk script -----
on mousedown
  set lockScreen to true
  set lockText of me to false
  click at the clickLoc
  click at the clickLoc
  get the selection
  set lockText of me to true
  set lockScreen to false
  if it is not "" then
    push card
    global xrefdepth
    add 1 to xrefdepth
    visual iris open
    show background button "return"
    go card it
  else
    select empty
  end if
end mouseDown


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=366 top=26 right=43 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add Index Pg.
----- HyperTalk script -----
on mouseUp
  put the userLevel into currentLevel
  set the userLevel to 5
  doMenu "Copy Card"
  doMenu "Paste Card"
  put "" into field "page no"
  send updateIndex to this card
  set the userLevel to currentLevel
end mouseUp



-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=274 top=60 right=300 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: item2


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=274 top=60 right=300 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: page2
----- HyperTalk script -----
on mousedown
  set lockScreen to true
  set lockText of me to false
  click at the clickLoc
  click at the clickLoc
  get the selection
  set lockText of me to true
  set lockScreen to false
  if it is not "" then
    push card
    global xrefdepth
    add 1 to xrefdepth
    visual iris open
    show background button "return"
    go card it
  else
    select empty
  end if
end mouseDown


-- part contents for background part 7
----- text -----
20

-- part contents for background part 6
----- text -----
Index (cont.)

-- part contents for card part 5
----- text -----
scripts
Shafer, Dan

user level















-- part contents for card part 6
----- text -----
15
4
17
4
15














-- part contents for card part 9
----- text -----



















-- part contents for card part 10
----- text -----



















-- part contents for background part 17
----- text -----
p6